unit UnitTravaCarta;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, DB,
  ADODB, dxCntner;

type
  TFormTravaCarta = class(TForm)
    dxDBGrid1: TdxDBGrid;
    qryCarta: TADOQuery;
    dsCarta: TDataSource;
    qryCartaCOMISSAO_PERIODO: TStringField;
    qryCartaCARTA_DATAINI: TDateTimeField;
    qryCartaCARTA_DATAFIM: TDateTimeField;
    qryCartaCARTA_GERACAO: TDateTimeField;
    qryCartaCARTA_CREDITO: TDateTimeField;
    qryCartaCARTA_OBS: TMemoField;
    qryCartaCARTA_AVISO: TMemoField;
    qryCartaCARTA_PAGO: TBooleanField;
    dxDBGrid1COMISSAO_PERIODO: TdxDBGridMaskColumn;
    dxDBGrid1CARTA_CREDITO: TdxDBGridDateColumn;
    dxDBGrid1CARTA_PAGO: TdxDBGridCheckColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure qryCartaAfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormTravaCarta: TFormTravaCarta;

implementation

uses UnitPrincipal;

{$R *.dfm}

procedure TFormTravaCarta.FormCreate(Sender: TObject);
begin
  qryCarta.Open;
end;

procedure TFormTravaCarta.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qryCarta.Close;
end;

procedure TFormTravaCarta.qryCartaAfterPost(DataSet: TDataSet);
begin
  qryCarta.refresh;
end;

end.
